<%

Function torneio_status_ativar(conexao, id, inicio)
		
		str = "Select id, intervalo FROM torneios_geral where id="&id&" AND status=0"
    		Set rs = conexao.Execute(str)	
		
		if not rs.eof then
		
			 s=torneio_status_alterar(conexao, id, rs("intervalo"), 1, inicio)
		
		ENd If
		

End Function

Function torneio_status_desativar(conexao, id)

		str = "Select id, intervalo FROM torneios_geral where id="&id&" AND status=1"
    		Set rs = conexao.Execute(str)	
		
		if not rs.eof then
		
			s=torneio_status_alterar(conexao, id, rs("intervalo"), 0, 0)
		
		ENd If

End Function

Function torneio_status_alterar(conexao, id, intervalo, opcao, inicio)

				DIM i, j, fase

				DIM grupos(1000, 3)
				
				id_rodada = CInt(rodada_get_atual())
				
				total =  torneio_lista_grupos(conexao, id, grupos)
				
				fase = torneio_fase_atual(conexao, id)+1
				
				for i=1 to total

					if fase=grupos(i,3) and opcao=1 then
								torneio_grupo_status_ativar conexao, grupos(i,0)
					Else
								torneio_grupo_status_desativar conexao, grupos(i,0)
					End If
				
					str = "Select id, rodada FROM torneios_jogos where realizado=0 and id_grupo="&grupos(i,0)&" order by rodada asc"
    					Set rs2 = conexao.Execute(str)	
					
					base=1
					
					if not rs2.eof then base = rs2("rodada")
					
					j=0
					
					Do while not rs2.eof

						id_rodada_ = 0
						if opcao=1 then id_rodada_ = id_rodada+inicio+(rs2("rodada")+grupos(grupos(i,1),2)-base)*(intervalo+1)
				
						jogo = torneio_set_jogo_rodada(conexao, rs2("id"), id_rodada_)
						
						j=rs2("rodada")
						
						rs2.MoveNext
						
					Loop		
					
					grupos(i,2)=j+grupos(grupos(i,1),2)-base+1

				next
				
			
				str = "UPDATE torneios_geral SET "
				str = str & "status='"&abs(opcao)&"' " 
				str = str & " WHERE id="&id
				Set rsI = conexao.Execute(str)
		

End Function

%>
